home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
educate
/
wcstrv11.zip
/
_SETUP.1
/
WCSServer.exe
/
0
/
RCDATA
/
TLMDGRADIENTEDITORDLG
/
TLMDGRADIENTEDITORDLG.txt
Wrap
Text File
|
1997-05-25
|
6KB
|
274 lines
object LMDGradientEditorDlg: TLMDGradientEditorDlg
Left = 249
Top = 106
ActiveControl = OK
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Gradient-Editor'
ClientHeight = 308
ClientWidth = 458
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 4
Top = 185
Width = 449
Height = 8
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 6
Top = 198
Width = 359
Height = 102
end
object Label3: TLabel
Left = 16
Top = 215
Width = 55
Height = 13
Caption = '&ColorCount:'
FocusControl = edbiw
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 16
Top = 246
Width = 27
Height = 13
Caption = 'Co&lor:'
FocusControl = cmbb
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 16
Top = 271
Width = 46
Height = 13
Caption = '&EndColor:'
FocusControl = cmbL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 239
Top = 250
Width = 45
Height = 13
Caption = '&Direction:'
FocusControl = direct
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object test: TLMDTile
Left = 33
Top = 16
Width = 389
Height = 152
Hint = 'Shows the current settings.'
Bevel.Mode = bmStandard
TileMode = tmGradient
end
object OK: TBitBtn
Left = 371
Top = 198
Width = 82
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Kind = bkOK
Margin = 2
Spacing = -1
end
object Cancel: TBitBtn
Left = 371
Top = 229
Width = 82
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
end
object reset: TBitBtn
Left = 371
Top = 271
Width = 82
Height = 27
Cancel = True
Caption = 'Reset'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = resetClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
end
object edbiw: TSpinEdit
Left = 83
Top = 209
Width = 48
Height = 22
Hint = 'Defines how many colors are to be used.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
MaxValue = 236
MinValue = 1
ParentFont = False
TabOrder = 3
Value = 1
OnChange = edchange
end
object chk: TCheckBox
Left = 240
Top = 211
Width = 104
Height = 20
Hint = 'If set, the palette will be realized.'
Caption = ' &PaletteRealize'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = chkClick
end
object direct: TComboBox
Left = 241
Top = 265
Width = 118
Height = 21
Hint = 'Specifies the direction of the gradient,'
Style = csDropDownList
DropDownCount = 4
ItemHeight = 13
Items.Strings = (
'gsHorizontal'
'gsVertical'
'gsSquare'
'gsElliptic'
'gsTopLeft'
'gsTopRight'
'gsBottomLeft'
'gsBottomRight')
TabOrder = 9
OnChange = directChange
end
object cmbb: TLMDColorComboBox
Left = 69
Top = 241
Width = 132
Height = 21
Hint = 'Specifies the beginning color.'
DlgOptions = []
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [coDefaultColors, coSystemColors, coAllowAnyColor]
ParentFont = False
TabOrder = 4
OnChange = cmbc
end
object cmbL: TLMDColorComboBox
Left = 69
Top = 265
Width = 132
Height = 21
Hint = 'Specifies the end color.'
DlgOptions = []
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [coDefaultColors, coSystemColors, coAllowAnyColor]
ParentFont = False
TabOrder = 6
OnChange = cmbc
end
object bt1: TButton
Left = 202
Top = 241
Width = 25
Height = 21
Caption = '...'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = btn
end
object bt2: TButton
Left = 202
Top = 265
Width = 25
Height = 21
Caption = '...'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = btn
end
end